Private Sub CommandButton1_Click()
'
     TextBox1.Text = ""
     TextBox2.Text = ""
     TextBox3.Text = ""
     TextBox4.Text = ""
     TextBox5.Text = ""
     TextBox6.Text = ""
     TextBox7.Text = ""
    ActiveSheet.AutoFilterMode = False
End Sub

Private Sub TextBox1_Change()
    Range("a5:z50000").AutoFilter field:=1, Criteria1:="*" & TextBox1.Text & "*"
End Sub

Private Sub TextBox2_Change()
    Range("a5:z50000").AutoFilter field:=2, Criteria1:="*" & TextBox2.Text & "*"
End Sub

Private Sub TextBox3_Change()
    Range("a5:z50000").AutoFilter field:=3, Criteria1:="*" & TextBox3.Text & "*"
End Sub

Private Sub TextBox4_Change()
    Range("a5:z50000").AutoFilter field:=4, Criteria1:="*" & TextBox4.Text & "*"
End Sub

Private Sub TextBox5_Change()
    Range("a5:z50000").AutoFilter field:=5, Criteria1:="*" & TextBox5.Text & "*"
End Sub

Private Sub TextBox6_Change()
    Range("a5:z50000").AutoFilter field:=6, Criteria1:="*" & TextBox6.Text & "*"
End Sub
Private Sub TextBox7_Change()
    Range("a5:z50000").AutoFilter field:=7, Criteria1:="*" & TextBox7.Text & "*"
End Sub